home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / Syn Text Editor 2.1.0.46 / synsetup-2.1.0.46.exe / {app} / scripts / repl.vbs < prev    next >
Text File  |  2002-07-22  |  338b  |  17 lines
  1. ' Caption: <Text from the Menuitem>|
  2. ' Hint: <The Hint from the Menuitem>|
  3. ' Icon: <The Icon from the Menuitem>|
  4.  
  5. option explicit
  6.  
  7. sub Main(dummy)
  8.   dim i, l, p
  9.   set l = ActiveDocument.Lines
  10.   for i = 0 to l.Count - 1
  11.     p = InStr(1, l(i), "/")
  12.     if p > 0 then
  13.       l(i) = Left(l(i), p - 1)
  14.     end if
  15.   next
  16. end sub
  17.